home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Arcade• / Daleks •••• / Daleks 2.0 / Daleks 2.0.rsrc / CODE_2.txt < prev    next >
Text File  |  1990-08-27  |  27KB  |  475 lines
  1. # near model CODE resource
  2. # jump table entries: 88-88 (1 of them)
  3. fn00000000:
  4. 00000000  4E56 FFF8                link       A6, -0x0008
  5. 00000004  48E7 0018                movem.l    -[A7], A3,A4
  6. 00000008  206E 0010                movea.l    A0, [A6 + 0x10]
  7. 0000000C  43EE FFF8                lea.l      A1, [A6 - 0x8]
  8. 00000010  22D8                     move.l     [A1]+, [A0]+
  9. 00000012  22D8                     move.l     [A1]+, [A0]+
  10. 00000014  286E 000C                movea.l    A4, [A6 + 0xC]
  11. 00000018  47EC 0006                lea.l      A3, [A4 + 0x6]
  12. 0000001C  302E FFF8                move.w     D0, [A6 - 0x8]
  13. 00000020  9053                     sub.w      D0, [A3]
  14. 00000022  C1EC 0004                muls.w     D0, [A4 + 0x4]
  15. 00000026  48C0                     ext.l      D0
  16. 00000028  D094                     add.l      D0, [A4]
  17. 0000002A  2880                     move.l     [A4], D0
  18. 0000002C  36AE FFF8                move.w     [A3], [A6 - 0x8]
  19. 00000030  376E FFFC 0004           move.w     [A3 + 0x4], [A6 - 0x4]
  20. 00000036  4CDF 1800                movem.l    A3,A4, [A7]+
  21. 0000003A  4E5E                     unlink     A6
  22. 0000003C  205F                     movea.l    A0, [A7]+
  23. 0000003E  DEFC 000C                add.w      A7, 0xC
  24. 00000042  4ED0                     jmp        [A0]
  25. fn00000044:
  26. 00000044  4E56 FFCE                link       A6, -0x0032
  27. 00000048  48E7 0700                movem.l    -[A7], D5,D6,D7
  28. 0000004C  206E 0016                movea.l    A0, [A6 + 0x16]
  29. 00000050  43EE FFF2                lea.l      A1, [A6 - 0xE]
  30. 00000054  22D8                     move.l     [A1]+, [A0]+
  31. 00000056  22D8                     move.l     [A1]+, [A0]+
  32. 00000058  22D8                     move.l     [A1]+, [A0]+
  33. 0000005A  3290                     move.w     [A1], [A0]
  34. 0000005C  206E 0012                movea.l    A0, [A6 + 0x12]
  35. 00000060  43EE FFE4                lea.l      A1, [A6 - 0x1C]
  36. 00000064  22D8                     move.l     [A1]+, [A0]+
  37. 00000066  22D8                     move.l     [A1]+, [A0]+
  38. 00000068  22D8                     move.l     [A1]+, [A0]+
  39. 0000006A  3290                     move.w     [A1], [A0]
  40. 0000006C  206E 000E                movea.l    A0, [A6 + 0xE]
  41. 00000070  43EE FFDC                lea.l      A1, [A6 - 0x24]
  42. 00000074  22D8                     move.l     [A1]+, [A0]+
  43. 00000076  22D8                     move.l     [A1]+, [A0]+
  44. 00000078  206E 000A                movea.l    A0, [A6 + 0xA]
  45. 0000007C  43EE FFD4                lea.l      A1, [A6 - 0x2C]
  46. 00000080  22D8                     move.l     [A1]+, [A0]+
  47. 00000082  22D8                     move.l     [A1]+, [A0]+
  48. 00000084  4267                     clr.w      -[A7]
  49. 00000086  3F2E FFE8                move.w     -[A7], [A6 - 0x18]
  50. 0000008A  3F2E FFF6                move.w     -[A7], [A6 - 0xA]
  51. 0000008E  4EAD 005A                jsr        [A5 + 0x5A /* export_7 */]
  52. 00000092  303C 0800                move.w     D0, 0x800
  53. 00000096  48C0                     ext.l      D0
  54. 00000098  81DF                     divs.w     D0, [A7]+
  55. 0000009A  3E00                     move.w     D7, D0
  56. 0000009C  3A2E FFD8                move.w     D5, [A6 - 0x28]
  57. 000000A0  3C2E FFE0                move.w     D6, [A6 - 0x20]
  58. 000000A4  4267                     clr.w      -[A7]
  59. 000000A6  2007                     move.l     D0, D7
  60. 000000A8  D06E FFD4                add.w      D0, [A6 - 0x2C]
  61. 000000AC  3F00                     move.w     -[A7], D0
  62. 000000AE  3F05                     move.w     -[A7], D5
  63. 000000B0  4EAD 0062                jsr        [A5 + 0x62 /* export_8 */]
  64. 000000B4  3D5F FFD8                move.w     [A6 - 0x28], [A7]+
  65. 000000B8  4267                     clr.w      -[A7]
  66. 000000BA  2007                     move.l     D0, D7
  67. 000000BC  D06E FFDC                add.w      D0, [A6 - 0x24]
  68. 000000C0  3F00                     move.w     -[A7], D0
  69. 000000C2  3F06                     move.w     -[A7], D6
  70. 000000C4  4EAD 0062                jsr        [A5 + 0x62 /* export_8 */]
  71. 000000C8  3D5F FFE0                move.w     [A6 - 0x20], [A7]+
  72. label000000CC:
  73. 000000CC  486E FFDC                pea.l      [A6 - 0x24]
  74. 000000D0  486E FFF2                pea.l      [A6 - 0xE]
  75. 000000D4  2F0E                     move.l     -[A7], A6
  76. 000000D6  4EBA FF28                jsr        [PC - 0xD8 /* 00000000 */]
  77. 000000DA  486E FFF2                pea.l      [A6 - 0xE]
  78. 000000DE  486E FFE4                pea.l      [A6 - 0x1C]
  79. 000000E2  486E FFDC                pea.l      [A6 - 0x24]
  80. 000000E6  486E FFD4                pea.l      [A6 - 0x2C]
  81. 000000EA  3F2E 0008                move.w     -[A7], [A6 + 0x8]
  82. 000000EE  42A7                     clr.l      -[A7]
  83. 000000F0  A8EC                     syscall    CopyBits
  84. 000000F2  2007                     move.l     D0, D7
  85. 000000F4  D06E FFD4                add.w      D0, [A6 - 0x2C]
  86. 000000F8  3D40 FFD4                move.w     [A6 - 0x2C], D0
  87. 000000FC  4267                     clr.w      -[A7]
  88. 000000FE  2007                     move.l     D0, D7
  89. 00000100  D06E FFD4                add.w      D0, [A6 - 0x2C]
  90. 00000104  3F00                     move.w     -[A7], D0
  91. 00000106  3F05                     move.w     -[A7], D5
  92. 00000108  4EAD 0062                jsr        [A5 + 0x62 /* export_8 */]
  93. 0000010C  3D5F FFD8                move.w     [A6 - 0x28], [A7]+
  94. 00000110  2007                     move.l     D0, D7
  95. 00000112  D06E FFDC                add.w      D0, [A6 - 0x24]
  96. 00000116  3D40 FFDC                move.w     [A6 - 0x24], D0
  97. 0000011A  4267                     clr.w      -[A7]
  98. 0000011C  2007                     move.l     D0, D7
  99. 0000011E  D06E FFDC                add.w      D0, [A6 - 0x24]
  100. 00000122  3F00                     move.w     -[A7], D0
  101. 00000124  3F06                     move.w     -[A7], D6
  102. 00000126  4EAD 0062                jsr        [A5 + 0x62 /* export_8 */]
  103. 0000012A  3D5F FFE0                move.w     [A6 - 0x20], [A7]+
  104. 0000012E  BC6E FFDC                cmp.w      D6, [A6 - 0x24]
  105. 00000132  6E98                     bgt        -0x66 /* 000000CC */
  106. 00000134  4CDF 00E0                movem.l    D5,D6,D7, [A7]+
  107. 00000138  4E5E                     unlink     A6
  108. 0000013A  205F                     movea.l    A0, [A7]+
  109. 0000013C  DEFC 0012                add.w      A7, 0x12
  110. 00000140  4ED0                     jmp        [A0]
  111. fn00000142:
  112. 00000142  4E56 FEF8                link       A6, -0x0108
  113. 00000146  206E 0014                movea.l    A0, [A6 + 0x14]
  114. 0000014A  43EE FF00                lea.l      A1, [A6 - 0x100]
  115. 0000014E  7040                     moveq.l    D0, 0x40
  116. label00000150:
  117. 00000150  22D8                     move.l     [A1]+, [A0]+
  118. 00000152  5340                     subq.w     D0, 1
  119. 00000154  6EFA                     bgt        -0x4 /* 00000150 */
  120. 00000156  3D6E 0012 FEF8           move.w     [A6 - 0x108], [A6 + 0x12]
  121. 0000015C  3D6E 000E FEFC           move.w     [A6 - 0x104], [A6 + 0xE]
  122. 00000162  3D6E 0010 FEFA           move.w     [A6 - 0x106], [A6 + 0x10]
  123. 00000168  3D6E 000C FEFE           move.w     [A6 - 0x102], [A6 + 0xC]
  124. 0000016E  41EE FF00                lea.l      A0, [A6 - 0x100]
  125. 00000172  2008                     move.l     D0, A0
  126. 00000174  5280                     addq.l     D0, 1
  127. 00000176  2F00                     move.l     -[A7], D0
  128. 00000178  102E FF00                move.b     D0, [A6 - 0x100]
  129. 0000017C  0240 00FF                andi.w     D0, 0xFF
  130. 00000180  48C0                     ext.l      D0
  131. 00000182  2F00                     move.l     -[A7], D0
  132. 00000184  486E FEF8                pea.l      [A6 - 0x108]
  133. 00000188  3F3C 0001                move.w     -[A7], 0x1
  134. 0000018C  A9CE                     syscall    TETextBox/TextBox
  135. 0000018E  4E5E                     unlink     A6
  136. 00000190  205F                     movea.l    A0, [A7]+
  137. 00000192  DEFC 0010                add.w      A7, 0x10
  138. 00000196  4ED0                     jmp        [A0]
  139. fn00000198:
  140. 00000198  4E56 FEFA                link       A6, -0x0106
  141. 0000019C  48E7 0308                movem.l    -[A7], D6,D7,A4
  142. 000001A0  286E 0008                movea.l    A4, [A6 + 0x8]
  143. 000001A4  486E FFF8                pea.l      [A6 - 0x8]
  144. 000001A8  303C 012C                move.w     D0, 0x12C
  145. 000001AC  48C0                     ext.l      D0
  146. 000001AE  81FC 0002                divs.w     D0, 0x2
  147. 000001B2  5340                     subq.w     D0, 1
  148. 000001B4  3F00                     move.w     -[A7], D0
  149. 000001B6  303C 008C                move.w     D0, 0x8C
  150. 000001BA  48C0                     ext.l      D0
  151. 000001BC  81FC 0002                divs.w     D0, 0x2
  152. 000001C0  5340                     subq.w     D0, 1
  153. 000001C2  3F00                     move.w     -[A7], D0
  154. 000001C4  303C 012C                move.w     D0, 0x12C
  155. 000001C8  48C0                     ext.l      D0
  156. 000001CA  81FC 0002                divs.w     D0, 0x2
  157. 000001CE  5240                     addq.w     D0, 1
  158. 000001D0  3F00                     move.w     -[A7], D0
  159. 000001D2  303C 008C                move.w     D0, 0x8C
  160. 000001D6  48C0                     ext.l      D0
  161. 000001D8  81FC 0002                divs.w     D0, 0x2
  162. 000001DC  5240                     addq.w     D0, 1
  163. 000001DE  3F00                     move.w     -[A7], D0
  164. 000001E0  A8A7                     syscall    SetRect
  165. 000001E2  7E01                     moveq.l    D7, 0x01
  166. 000001E4  7C01                     moveq.l    D6, 0x01
  167. label000001E6:
  168. 000001E6  2007                     move.l     D0, D7
  169. 000001E8  8006                     or.b       D0, D6
  170. 000001EA  6700 009C                beq        +0x9E /* 00000288 */
  171. 000001EE  486C FEE8                pea.l      [A4 - 0x118]
  172. 000001F2  206C FED6                movea.l    A0, [A4 - 0x12A]
  173. 000001F6  4868 0002                pea.l      [A0 + 0x2]
  174. 000001FA  486E FFF8                pea.l      [A6 - 0x8]
  175. 000001FE  486E FFF8                pea.l      [A6 - 0x8]
  176. 00000202  4267                     clr.w      -[A7]
  177. 00000204  4EBA FE3E                jsr        [PC - 0x1C2 /* 00000044 */]
  178. 00000208  206C FED6                movea.l    A0, [A4 - 0x12A]
  179. 0000020C  302E FFFC                move.w     D0, [A6 - 0x4]
  180. 00000210  B068 0014                cmp.w      D0, [A0 + 0x14]
  181. 00000214  6C16                     bge        +0x18 /* 0000022C */
  182. 00000216  302E FFF8                move.w     D0, [A6 - 0x8]
  183. 0000021A  5340                     subq.w     D0, 1
  184. 0000021C  3D40 FFF8                move.w     [A6 - 0x8], D0
  185. 00000220  302E FFFC                move.w     D0, [A6 - 0x4]
  186. 00000224  5240                     addq.w     D0, 1
  187. 00000226  3D40 FFFC                move.w     [A6 - 0x4], D0
  188. 0000022A  6002                     bra        +0x4 /* 0000022E */
  189. label0000022C:
  190. 0000022C  4207                     clr.b      D7
  191. label0000022E:
  192. 0000022E  2007                     move.l     D0, D7
  193. 00000230  0A00 0001                xori.b     D0, 0x1
  194. 00000234  206C FED6                movea.l    A0, [A4 - 0x12A]
  195. 00000238  3228 0016                move.w     D1, [A0 + 0x16]
  196. 0000023C  5341                     subq.w     D1, 1
  197. 0000023E  B26E FFFE                cmp.w      D1, [A6 - 0x2]
  198. 00000242  5EC1                     sgt        D1
  199. 00000244  C001                     and.b      D0, D1
  200. 00000246  6716                     beq        +0x18 /* 0000025E */
  201. 00000248  302E FFFE                move.w     D0, [A6 - 0x2]
  202. 0000024C  5440                     addq.w     D0, 2
  203. 0000024E  3D40 FFFE                move.w     [A6 - 0x2], D0
  204. 00000252  302E FFFA                move.w     D0, [A6 - 0x6]
  205. 00000256  5540                     subq.w     D0, 2
  206. 00000258  3D40 FFFA                move.w     [A6 - 0x6], D0
  207. 0000025C  6026                     bra        +0x28 /* 00000284 */
  208. label0000025E:
  209. 0000025E  206C FED6                movea.l    A0, [A4 - 0x12A]
  210. 00000262  302E FFFE                move.w     D0, [A6 - 0x2]
  211. 00000266  B068 0016                cmp.w      D0, [A0 + 0x16]
  212. 0000026A  6C16                     bge        +0x18 /* 00000282 */
  213. 0000026C  302E FFFE                move.w     D0, [A6 - 0x2]
  214. 00000270  5240                     addq.w     D0, 1
  215. 00000272  3D40 FFFE                move.w     [A6 - 0x2], D0
  216. 00000276  302E FFFA                move.w     D0, [A6 - 0x6]
  217. 0000027A  5340                     subq.w     D0, 1
  218. 0000027C  3D40 FFFA                move.w     [A6 - 0x6], D0
  219. 00000280  6002                     bra        +0x4 /* 00000284 */
  220. label00000282:
  221. 00000282  4206                     clr.b      D6
  222. label00000284:
  223. 00000284  6000 FF60                bra        -0x9E /* 000001E6 */
  224. label00000288:
  225. 00000288  4CDF 10C0                movem.l    D6,D7,A4, [A7]+
  226. 0000028C  4E5E                     unlink     A6
  227. 0000028E  205F                     movea.l    A0, [A7]+
  228. 00000290  5C4F                     addq.w     A7, 6
  229. 00000292  4ED0                     jmp        [A0]
  230. export_11:
  231. 00000294  4E56 FE46                link       A6, -0x01BA
  232. 00000298  48E7 0118                movem.l    -[A7], D7,A3,A4
  233. 0000029C  0C6E 0001 0008           cmpi.w     [A6 + 0x8], 0x1
  234. 000002A2  6600 0222                bne        +0x224 /* 000004C6 */
  235. 000002A6  42A7                     clr.l      -[A7]
  236. 000002A8  2F3A 02B2                move.l     -[A7], [PC + 0x2B2 /* 0000055C, value 0x49434E23 'ICN#', pstring "CN#" */]
  237. 000002AC  3F3C 0080                move.w     -[A7], 0x80
  238. 000002B0  A9A0                     syscall    GetResource
  239. 000002B2  265F                     movea.l    A3, [A7]+
  240. 000002B4  486E FEFA                pea.l      [A6 - 0x106]
  241. 000002B8  A874                     syscall    GetPort
  242. 000002BA  302D F43A                move.w     D0, [A5 - 0xBC6]
  243. 000002BE  906D F436                sub.w      D0, [A5 - 0xBCA]
  244. 000002C2  907C 012C                sub.w      D0, 0x12C
  245. 000002C6  48C0                     ext.l      D0
  246. 000002C8  81FC 0002                divs.w     D0, 0x2
  247. 000002CC  3D40 FE5C                move.w     [A6 - 0x1A4], D0
  248. 000002D0  302D F438                move.w     D0, [A5 - 0xBC8]
  249. 000002D4  906D F434                sub.w      D0, [A5 - 0xBCC]
  250. 000002D8  907C 008C                sub.w      D0, 0x8C
  251. 000002DC  48C0                     ext.l      D0
  252. 000002DE  81FC 0002                divs.w     D0, 0x2
  253. 000002E2  3D40 FE5A                move.w     [A6 - 0x1A6], D0
  254. 000002E6  302E FE5C                move.w     D0, [A6 - 0x1A4]
  255. 000002EA  D07C 012C                add.w      D0, 0x12C
  256. 000002EE  3D40 FE60                move.w     [A6 - 0x1A0], D0
  257. 000002F2  302E FE5A                move.w     D0, [A6 - 0x1A6]
  258. 000002F6  D07C 008C                add.w      D0, 0x8C
  259. 000002FA  3D40 FE5E                move.w     [A6 - 0x1A2], D0
  260. 000002FE  42A7                     clr.l      -[A7]
  261. 00000300  42A7                     clr.l      -[A7]
  262. 00000302  486E FE5A                pea.l      [A6 - 0x1A6]
  263. 00000306  487A 0252                pea.l      [PC + 0x252 /* 0000055A, value 0x4943 'IC', cstring "" */]
  264. 0000030A  4267                     clr.w      -[A7]
  265. 0000030C  3F3C 0003                move.w     -[A7], 0x3
  266. 00000310  70FF                     moveq.l    D0, 0xFFFFFFFF
  267. 00000312  2F00                     move.l     -[A7], D0
  268. 00000314  4267                     clr.w      -[A7]
  269. 00000316  42A7                     clr.l      -[A7]
  270. 00000318  A913                     syscall    NewWindow
  271. 0000031A  2D5F FED6                move.l     [A6 - 0x12A], [A7]+
  272. 0000031E  2F2E FED6                move.l     -[A7], [A6 - 0x12A]
  273. 00000322  A873                     syscall    SetPort
  274. 00000324  486D F490                pea.l      [A5 - 0xB70]
  275. 00000328  A87C                     syscall    BackPat
  276. 0000032A  2F2E FED6                move.l     -[A7], [A6 - 0x12A]
  277. 0000032E  A915                     syscall    ShowWindow
  278. 00000330  41EE FE6A                lea.l      A0, [A6 - 0x196]
  279. 00000334  2F08                     move.l     -[A7], A0
  280. 00000336  A86F                     syscall    OpenPort
  281. 00000338  49EE FEEE                lea.l      A4, [A6 - 0x112]
  282. 0000033C  426C 0002                clr.w      [A4 + 0x2]
  283. 00000340  4254                     clr.w      [A4]
  284. 00000342  397C 012C 0006           move.w     [A4 + 0x6], 0x12C
  285. 00000348  397C 008C 0004           move.w     [A4 + 0x4], 0x8C
  286. 0000034E  303C 0133                move.w     D0, 0x133
  287. 00000352  48C0                     ext.l      D0
  288. 00000354  81FC 0008                divs.w     D0, 0x8
  289. 00000358  3D40 FEEC                move.w     [A6 - 0x114], D0
  290. 0000035C  102E FEED                move.b     D0, [A6 - 0x113]
  291. 00000360  0240 0001                andi.w     D0, 0x1
  292. 00000364  670A                     beq        +0xC /* 00000370 */
  293. 00000366  302E FEEC                move.w     D0, [A6 - 0x114]
  294. 0000036A  5240                     addq.w     D0, 1
  295. 0000036C  3D40 FEEC                move.w     [A6 - 0x114], D0
  296. label00000370:
  297. 00000370  42A7                     clr.l      -[A7]
  298. 00000372  303C 008C                move.w     D0, 0x8C
  299. 00000376  C1EE FEEC                muls.w     D0, [A6 - 0x114]
  300. 0000037A  48C0                     ext.l      D0
  301. 0000037C  2F00                     move.l     -[A7], D0
  302. 0000037E  4EAD 006A                jsr        [A5 + 0x6A /* export_9 */]
  303. 00000382  2D5F FEE8                move.l     [A6 - 0x118], [A7]+
  304. 00000386  486E FEE8                pea.l      [A6 - 0x118]
  305. 0000038A  A875                     syscall    SetPBits/SetPortBits
  306. 0000038C  486E FE7A                pea.l      [A6 - 0x186]
  307. 00000390  A8A3                     syscall    EraseRect
  308. 00000392  486E FEE0                pea.l      [A6 - 0x120]
  309. 00000396  4267                     clr.w      -[A7]
  310. 00000398  4267                     clr.w      -[A7]
  311. 0000039A  3F3C 0020                move.w     -[A7], 0x20 /* ' ' */
  312. 0000039E  3F3C 0020                move.w     -[A7], 0x20 /* ' ' */
  313. 000003A2  A8A7                     syscall    SetRect
  314. 000003A4  3D7C 0004 FEDE           move.w     [A6 - 0x122], 0x4
  315. 000003AA  2D53 FEDA                move.l     [A6 - 0x126], [A3]
  316. 000003AE  486E FE62                pea.l      [A6 - 0x19E]
  317. 000003B2  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  318. 000003B6  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  319. 000003BA  3F3C 002A                move.w     -[A7], 0x2A /* '*' */
  320. 000003BE  3F3C 002A                move.w     -[A7], 0x2A /* '*' */
  321. 000003C2  A8A7                     syscall    SetRect
  322. 000003C4  486E FEDA                pea.l      [A6 - 0x126]
  323. 000003C8  486E FEE8                pea.l      [A6 - 0x118]
  324. 000003CC  486E FEE0                pea.l      [A6 - 0x120]
  325. 000003D0  486E FE62                pea.l      [A6 - 0x19E]
  326. 000003D4  4267                     clr.w      -[A7]
  327. 000003D6  42A7                     clr.l      -[A7]
  328. 000003D8  A8EC                     syscall    CopyBits
  329. 000003DA  700C                     moveq.l    D0, 0x0C
  330. 000003DC  48C0                     ext.l      D0
  331. 000003DE  81FC 0002                divs.w     D0, 0x2
  332. 000003E2  3D40 FE62                move.w     [A6 - 0x19E], D0
  333. 000003E6  302E FE62                move.w     D0, [A6 - 0x19E]
  334. 000003EA  D07C 0080                add.w      D0, 0x80
  335. 000003EE  3D40 FE66                move.w     [A6 - 0x19A], D0
  336. 000003F2  303C 00AC                move.w     D0, 0xAC
  337. 000003F6  48C0                     ext.l      D0
  338. 000003F8  81FC 0002                divs.w     D0, 0x2
  339. 000003FC  3D40 FE64                move.w     [A6 - 0x19C], D0
  340. 00000400  302E FE64                move.w     D0, [A6 - 0x19C]
  341. 00000404  D07C 0080                add.w      D0, 0x80
  342. 00000408  3D40 FE68                move.w     [A6 - 0x198], D0
  343. 0000040C  486E FEDA                pea.l      [A6 - 0x126]
  344. 00000410  206E FED6                movea.l    A0, [A6 - 0x12A]
  345. 00000414  4868 0002                pea.l      [A0 + 0x2]
  346. 00000418  486E FEE0                pea.l      [A6 - 0x120]
  347. 0000041C  486E FE62                pea.l      [A6 - 0x19E]
  348. 00000420  4267                     clr.w      -[A7]
  349. 00000422  42A7                     clr.l      -[A7]
  350. 00000424  A8EC                     syscall    CopyBits
  351. 00000426  2F0B                     move.l     -[A7], A3
  352. 00000428  A9A3                     syscall    ReleaseResource
  353. 0000042A  487A 0104                pea.l      [PC + 0x104 /* 00000530, value 0x28546865 '(The', pstring "The New Daleks by Bob Arning, June 1986." */]
  354. 0000042E  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  355. 00000432  3F3C 003C                move.w     -[A7], 0x3C /* '<' */
  356. 00000436  3F3C 002D                move.w     -[A7], 0x2D /* '-' */
  357. 0000043A  3F3C 0122                move.w     -[A7], 0x122
  358. 0000043E  2F0E                     move.l     -[A7], A6
  359. 00000440  4EBA FD00                jsr        [PC - 0x300 /* 00000142 */]
  360. 00000444  487A 00C6                pea.l      [PC + 0xC6 /* 0000050C, value 0x22436F6D '\"Com', pstring "Comments are welcome at 70347,705." */]
  361. 00000448  3F3C 0032                move.w     -[A7], 0x32 /* '2' */
  362. 0000044C  3F3C 003C                move.w     -[A7], 0x3C /* '<' */
  363. 00000450  3F3C 0055                move.w     -[A7], 0x55 /* 'U' */
  364. 00000454  3F3C 0122                move.w     -[A7], 0x122
  365. 00000458  2F0E                     move.l     -[A7], A6
  366. 0000045A  4EBA FCE6                jsr        [PC - 0x31A /* 00000142 */]
  367. 0000045E  487A 008A                pea.l      [PC + 0x8A /* 000004EA, value 0x204D616E ' Man', pstring "Many thanks to Johan Strandberg." */]
  368. 00000462  3F3C 005A                move.w     -[A7], 0x5A /* 'Z' */
  369. 00000466  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  370. 0000046A  3F3C 0082                move.w     -[A7], 0x82
  371. 0000046E  3F3C 0122                move.w     -[A7], 0x122
  372. 00000472  2F0E                     move.l     -[A7], A6
  373. 00000474  4EBA FCCC                jsr        [PC - 0x334 /* 00000142 */]
  374. 00000478  703C                     moveq.l    D0, 0x3C
  375. 0000047A  2F00                     move.l     -[A7], D0
  376. 0000047C  486E FE46                pea.l      [A6 - 0x1BA]
  377. 00000480  4EAD 002A                jsr        [A5 + 0x2A /* export_1 */]
  378. 00000484  1F3C 0001                move.b     -[A7], 0x1
  379. 00000488  2F0E                     move.l     -[A7], A6
  380. 0000048A  4EBA FD0C                jsr        [PC - 0x2F4 /* 00000198 */]
  381. 0000048E  703C                     moveq.l    D0, 0x3C
  382. 00000490  2F00                     move.l     -[A7], D0
  383. 00000492  486E FE46                pea.l      [A6 - 0x1BA]
  384. 00000496  4EAD 002A                jsr        [A5 + 0x2A /* export_1 */]
  385. label0000049A:
  386. 0000049A  4267                     clr.w      -[A7]
  387. 0000049C  3F3C 000A                move.w     -[A7], 0xA /* '\n' */
  388. 000004A0  486E FE4A                pea.l      [A6 - 0x1B6]
  389. 000004A4  A970                     syscall    GetNextEvent
  390. 000004A6  101F                     move.b     D0, [A7]+
  391. 000004A8  0A00 0001                xori.b     D0, 0x1
  392. 000004AC  6702                     beq        +0x4 /* 000004B0 */
  393. 000004AE  60EA                     bra        -0x14 /* 0000049A */
  394. label000004B0:
  395. 000004B0  2F2E FEE8                move.l     -[A7], [A6 - 0x118]
  396. 000004B4  4EAD 0032                jsr        [A5 + 0x32 /* export_2 */]
  397. 000004B8  2F2E FEFA                move.l     -[A7], [A6 - 0x106]
  398. 000004BC  A873                     syscall    SetPort
  399. 000004BE  2F2E FED6                move.l     -[A7], [A6 - 0x12A]
  400. 000004C2  A914                     syscall    DisposeWindow
  401. 000004C4  6018                     bra        +0x1A /* 000004DE */
  402. label000004C6:
  403. 000004C6  2F2D FD44                move.l     -[A7], [A5 - 0x2BC]
  404. 000004CA  3F2E 0008                move.w     -[A7], [A6 + 0x8]
  405. 000004CE  486E FF00                pea.l      [A6 - 0x100]
  406. 000004D2  A946                     syscall    GetMenuItemText/GetItem
  407. 000004D4  4267                     clr.w      -[A7]
  408. 000004D6  486E FF00                pea.l      [A6 - 0x100]
  409. 000004DA  A9B6                     syscall    OpenDeskAcc
  410. 000004DC  3E1F                     move.w     D7, [A7]+
  411. label000004DE:
  412. 000004DE  4CDF 1880                movem.l    D7,A3,A4, [A7]+
  413. 000004E2  4E5E                     unlink     A6
  414. 000004E4  205F                     movea.l    A0, [A7]+
  415. 000004E6  544F                     addq.w     A7, 2
  416. 000004E8  4ED0                     jmp        [A0]
  417. 000004EA  204D                     movea.l    A0, A5
  418. 000004EC  616E                     bsr        +0x70 /* 0000055C */
  419. 000004EE  7920                     moveq.l    D4, 0x20
  420. 000004F0  7468                     moveq.l    D2, 0x68
  421. 000004F2  616E                     bsr        +0x70 /* 00000562 */
  422. 000004F4  6B73                     bmi        +0x75 /* 00000569 */
  423. 000004F6  2074 6F20 4A6F           movea.l    A0, [A4 + 0x4A6F + D6 * 8]
  424. 000004FC  6861                     bvc        +0x63 /* 0000055F */
  425. 000004FE  6E20                     bgt        +0x22 /* 00000520 */
  426. 00000500  5374 7261                subq.w     [A4 + D7.w * 2 + 0x61], 1
  427. 00000504  6E64                     bgt        +0x66 /* 0000056A */
  428. 00000506  6265                     bhi        +0x67 /* 0000056D */
  429. 00000508  7267                     moveq.l    D1, 0x67
  430. 0000050A  2E00                     move.l     D7, D0
  431. 0000050C  2243                     movea.l    A1, D3
  432. 0000050E  6F6D                     ble        +0x6F /* 0000057D */
  433. 00000510  6D65                     blt        +0x67 /* 00000577 */
  434. 00000512  6E74                     bgt        +0x76 /* 00000588 */
  435. 00000514  7320                     moveq.l    D1, 0x20
  436. 00000516  6172                     bsr        +0x74 /* 0000058A */
  437. 00000518  6520                     bcs        +0x22 /* 0000053A */
  438. 0000051A  7765                     moveq.l    D3, 0x65
  439. 0000051C  6C63                     bge        +0x65 /* 00000581 */
  440. 0000051E  6F6D                     ble        +0x6F /* 0000058D */
  441. label00000520:
  442. 00000520  6520                     bcs        +0x22 /* 00000542 */
  443. 00000522  6174                     bsr        +0x76 /* 00000598 */
  444. 00000524  2037 3033                move.l     D0, [A7 + D3.w + 0x33]
  445. 00000528  3437 2C37                move.w     D2, [A7 + D2 * 4 + 0x37]
  446. 0000052C  3035 2E00                move.w     D0, [A5 + D2 * 8]
  447. 00000530  2854                     movea.l    A4, [A4]
  448. 00000532  6865                     bvc        +0x67 /* 00000599 */
  449. 00000534  204E                     movea.l    A0, A6
  450. 00000536  6577                     bcs        +0x79 /* 000005AF */
  451. 00000538  2044                     movea.l    A0, D4
  452. label0000053A:
  453. 0000053A  616C                     bsr        +0x6E /* 000005A8 */
  454. 0000053C  656B                     bcs        +0x6D /* 000005A9 */
  455. 0000053E  7320                     moveq.l    D1, 0x20
  456. 00000540  6279                     bhi        +0x7B /* 000005BB */
  457. label00000542:
  458. 00000542  2042                     movea.l    A0, D2
  459. 00000544  6F62                     ble        +0x64 /* 000005A8 */
  460. 00000546  2041                     movea.l    A0, D1
  461. 00000548  726E                     moveq.l    D1, 0x6E
  462. 0000054A  696E                     bvs        +0x70 /* 000005BA */
  463. 0000054C  672C                     beq        +0x2E /* 0000057A */
  464. 0000054E  204A                     movea.l    A0, A2
  465. 00000550  756E                     moveq.l    D2, 0x6E
  466. 00000552  6520                     bcs        +0x22 /* 00000574 */
  467. 00000554  3139 3836 2E00           move.w     -[A0], [0x38362E00]
  468. 0000055A  0000 4943                ori.b      D0, 0x43 /* 'C' */
  469. // begin alternate branch 0000055C-0000055E
  470. fn0000055C:
  471. 0000055C  4943                     chk.w      D4, D3
  472. // end alternate branch 0000055C-0000055E
  473. fn0000055C: // (misaligned)
  474. 0000055E  4E23                     .invalid   // invalid opcode 4
  475.